home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / TECHNICA / AUTOCAD / 3078B.ZIP / PGRUN991.ZIP / ATBLOCK.LSP < prev    next >
Lisp/Scheme  |  1991-05-20  |  20KB  |  732 lines
  1.  
  2. ; *******  ParaDraft Application  ********
  3. ; Parametric Geomtry Program generated by PgPg! 
  4. ; Authored by   : User
  5. ; Application name : Block with a T slot
  6. ; Dated         : Monday , 20-5-1991
  7. ; Started at    :  --  16:49:58
  8. ; Finished at   :  --  16:56:23
  9. ; ****************************************
  10. (princ "\nParaDraft application generated on Monday , 20-5-1991 with Professional Version 1.0P")
  11. (mode 0)(command "VSLIDE"(strcat *pgpg-dir* *pg-name*))
  12. (setq ang9 nil ang21 nil L1 nil L2 nil L3 nil L4 nil L5 nil L6 nil L7 nil L8 nil L10 nil L11 nil L12 nil L13 nil L14 nil L15 nil L16 nil L17 nil L18 nil L19 nil L20 nil  ) 
  13. (take-value 'ang9 "ang9" 70.11119129)
  14. (take-value 'ang21 "ang21" 40.10990078)
  15. (take-value 'L1 "L1" 33.61156976)
  16. (take-value 'L2 "L2" 41.77560024)
  17. (take-value 'L3 "L3" 22.1305)
  18. (take-value 'L4 "L4" 17.7045)
  19. (take-value 'L5 "L5" 26.2697)
  20. (take-value 'L6 "L6" 2.9775)
  21. (take-value 'L7 "L7" 32.9475)
  22. (take-value 'L8 "L8" 37.6771)
  23. (take-value 'L10 "L10" 26.26973)
  24. (take-value 'L11 "L11" 17.70446)
  25. (take-value 'L12 "L12" 22.13052)
  26. (take-value 'L13 "L13" 18.00001131)
  27. (take-value 'L14 "L14" 28.00003773)
  28. (take-value 'L15 "L15" 30.00001483)
  29. (take-value 'L16 "L16" 78.00004097)
  30. (take-value 'L17 "L17" 74.99997868)
  31. (take-value 'L18 "L18" 173.60172)
  32. (take-value 'L19 "L19" 56.47382)
  33. (take-value 'L20 "L20" 237.1719)
  34. (command "REDRAW")
  35. (initget 1)
  36. (setq refpt (getpoint "\nInsertion point :"))
  37. (setq refangle (getval "\nInsertion angle:" 0.0))
  38.  
  39. (princ "Computing points ..please wait")
  40.  
  41. (setq *en* 
  42. (init refpt))(setq *dim-layer* "dim")(setq *cen-layer* "cen")
  43. (setq err 0.0)
  44. (command "COLOR""BYLAYER")
  45. (command "DIM1""DIMASZ" 0.01 )
  46. (command "DIM1""DIMTXT" 0.01 )
  47. (setvar "CMDECHO" 0)(MAKE_LAYER "CEN" 2)(setq ANG9(D2R ANG9 ))
  48. (setq ANG21(D2R ANG21 ))
  49. (setq L22 (/ L3 2.0)  )
  50. (setq L23 L22 )
  51. (setq L24 (/ L4 2.0)  )
  52. (setq L25 L24 )
  53. (setq L26 (/ L5 2.0)  )
  54. (setq L27 L26 )
  55. (setq L28 (/ L10 2.0)  )
  56. (setq L29 L28 )
  57. (setq L30 (/ L11 2.0)  )
  58. (setq L31 L30 )
  59. (setq L32 (/ L12 2.0)  )
  60. (setq L33 L32 )
  61. (setq L34 (/ L15 2.0)  )
  62. (setq L35 L34 )
  63. (setq L36 (/ L16 2.0)  )
  64. (setq L37 L36 )
  65. (setq L38  (+ L17 L34 ) )
  66. (setq L39  (- L17 L35 ) )
  67. (setq L40  (+ L17 L36 ) )
  68. (setq L41  (- L17 L37 ) )
  69.  
  70. (setq pt1(delta refpt 
  71.                         0.0
  72.                         0.0
  73.         ))
  74. (setq pt57(polar 
  75.                          pt1 
  76.                          0.0 
  77.                         L6
  78.         ))
  79. (setq pt58(polar 
  80.                          pt1 
  81.                          0.0 
  82.                         L7
  83.         ))
  84. (setq pt59(polar 
  85.                          pt1 
  86.                          0.0 
  87.                         L8
  88.         ))
  89. (setq pt55(polar 
  90.                          pt1 
  91.                          1.57079633 
  92.                         L1
  93.         ))
  94. (setq pt14(delta refpt 
  95.                         ( + (x-of pt1) L20) 
  96.                         (y-of pt1)
  97.         ))
  98. (setq pt15(delta refpt 
  99.                         ( + (x-of pt1) L20) 
  100.                         ( + (y-of pt1) L19) 
  101.         ))
  102. (setq pt26(polar 
  103.                          pt1 
  104.                          1.57079633 
  105.                         L18
  106.         ))
  107. (setq pt46(delta refpt 
  108.                         ( + (x-of pt1) L8) 
  109.                         ( + (y-of pt1) L1) 
  110.         ))
  111. (setq pt47(delta refpt 
  112.                         ( + (x-of pt1) L7) 
  113.                         ( + (y-of pt1) L1) 
  114.         ))
  115. (setq pt60(polar 
  116.                          pt1 
  117.                          1.57079633 
  118.                         L19
  119.         ))
  120. (setq pt3(delta refpt 
  121.                         (x-of pt55)
  122.                         ( + (y-of pt55) L29) 
  123.         ))
  124. (setq pt4(delta refpt 
  125.                         ( + (x-of pt1) L6) 
  126.                         ( + L33 (y-of pt55)) 
  127.         ))
  128. (setq pt5(delta refpt 
  129.                         ( + (x-of pt1) L6) 
  130.                         ( + L31 (y-of pt55)) 
  131.         ))
  132. (setq pt6(delta refpt 
  133.                         ( + (x-of pt1) L7) 
  134.                         ( + L31 (y-of pt55)) 
  135.         ))
  136. (setq pt7(delta refpt 
  137.                         ( + (x-of pt1) L8) 
  138.                         ( + L31 (y-of pt55)) 
  139.         ))
  140. (setq pt9(delta refpt 
  141.                         ( + (x-of pt1) L8) 
  142.                         ( + ( - L30 ) (y-of pt55)) 
  143.         ))
  144. (setq pt10(delta refpt 
  145.                         ( + (x-of pt1) L7) 
  146.                         ( + ( - L30 ) (y-of pt55)) 
  147.         ))
  148. (setq pt11(delta refpt 
  149.                         ( + (x-of pt1) L6) 
  150.                         ( + ( - L30 ) (y-of pt55)) 
  151.         ))
  152. (setq pt12(delta refpt 
  153.                         ( + (x-of pt1) L6) 
  154.                         ( + ( - L32 ) (y-of pt55)) 
  155.         ))
  156. (setq pt13(delta refpt 
  157.                         (x-of pt55)
  158.                         ( + (y-of pt55) ( - L28 )) 
  159.         ))
  160. (setq pt40(delta refpt 
  161.                         ( + (x-of pt1) L7) 
  162.                         ( + ( - L32 ) (y-of pt55)) 
  163.         ))
  164. (setq pt41(delta refpt 
  165.                         ( + (x-of pt1) L7) 
  166.                         ( + L33 (y-of pt55)) 
  167.         ))
  168. (setq pt61(polar 
  169.                          pt15 
  170.                         (chg-quad (+ 1.5707963(chg-quad (  -  0.0 ANG21
  171.  )) ))
  172.                         ( - L13 )
  173.         ))
  174. (setq pt54(polar 
  175.                          pt26 
  176.                          1.57079633 
  177.                         ( - L2 )
  178.         ))
  179. (setq pt37(delta refpt 
  180.                         ( + (x-of pt1) L7) 
  181.                         ( + ( - L2 ) (y-of pt26)) 
  182.         ))
  183. (setq pt45(delta refpt 
  184.                         ( + (x-of pt1) L8) 
  185.                         ( + ( - L2 ) (y-of pt26)) 
  186.         ))
  187. (setq pt62(polar 
  188.                          pt61 
  189.                         (chg-quad (+ 1.5707963(chg-quad (  -  0.0 ANG21
  190.  )) ))
  191.                         ( - L14 )
  192.         ))
  193. (setq pt2(delta refpt 
  194.                         (x-of pt54)
  195.                         ( + (y-of pt54) ( - L26 )) 
  196.         ))
  197. (setq pt27(delta refpt 
  198.                         (x-of pt54)
  199.                         ( + (y-of pt54) L27) 
  200.         ))
  201. (setq pt28(delta refpt 
  202.                         ( + (x-of pt1) L6) 
  203.                         ( + L23 (y-of pt54)) 
  204.         ))
  205. (setq pt29(delta refpt 
  206.                         ( + (x-of pt1) L6) 
  207.                         ( + L25 (y-of pt54)) 
  208.         ))
  209. (setq pt30(delta refpt 
  210.                         ( + (x-of pt1) L7) 
  211.                         ( + L25 (y-of pt54)) 
  212.         ))
  213. (setq pt31(delta refpt 
  214.                         ( + (x-of pt1) L8) 
  215.                         ( + L25 (y-of pt54)) 
  216.         ))
  217. (setq pt33(delta refpt 
  218.                         ( + (x-of pt1) L8) 
  219.                         ( + ( - L24 ) (y-of pt54)) 
  220.         ))
  221. (setq pt34(delta refpt 
  222.                         ( + (x-of pt1) L7) 
  223.                         ( + ( - L24 ) (y-of pt54)) 
  224.         ))
  225. (setq pt35(delta refpt 
  226.                         ( + (x-of pt1) L6) 
  227.                         ( + ( - L24 ) (y-of pt54)) 
  228.         ))
  229. (setq pt36(delta refpt 
  230.                         ( + (x-of pt1) L6) 
  231.                         ( + ( - L22 ) (y-of pt54)) 
  232.         ))
  233. (setq pt38(delta refpt 
  234.                         ( + (x-of pt1) L7) 
  235.                         ( + ( - L22 ) (y-of pt54)) 
  236.         ))
  237. (setq pt39(delta refpt 
  238.                         ( + (x-of pt1) L7) 
  239.                         ( + L23 (y-of pt54)) 
  240.         ))
  241. (setq pt8(intersect 
  242.                         (make-line  pt9 (chg-quad (  +  0.0 ANG9
  243.  )) )
  244.                         (make-line  pt55  0.0 )
  245.                          Nil 
  246.         ))
  247. (setq pt25(intersect 
  248.                         (make-line  pt15 (chg-quad (  -  0.0 ANG21
  249.  )) )
  250.                         (make-line  pt26  0.0 )
  251.                          Nil 
  252.         ))
  253. (setq pt16(polar 
  254.                          pt25 
  255.                         (chg-quad (  -  0.0 ANG21
  256.  )) 
  257.                         ( - L38 )
  258.         ))
  259. (setq pt63(polar 
  260.                          pt25 
  261.                         (chg-quad (  -  0.0 ANG21
  262.  )) 
  263.                         ( - L40 )
  264.         ))
  265. (setq pt19(intersect 
  266.                         (make-line  pt63 (chg-quad (+ 1.5707963(chg-quad (  -  0.0 ANG21
  267.  )) )))
  268.                         (make-line  pt62 (chg-quad (  -  0.0 ANG21
  269.  )) )
  270.                          Nil 
  271.         ))
  272. (setq pt50(polar 
  273.                          pt25 
  274.                         (chg-quad (  -  0.0 ANG21
  275.  )) 
  276.                         ( - L17 )
  277.         ))
  278. (setq pt64(polar 
  279.                          pt25 
  280.                         (chg-quad (  -  0.0 ANG21
  281.  )) 
  282.                         ( - L41 )
  283.         ))
  284. (setq pt22(intersect 
  285.                         (make-line  pt61 (chg-quad (  -  0.0 ANG21
  286.  )) )
  287.                         (make-line  pt64 (chg-quad (+ 1.5707963(chg-quad (  -  0.0 ANG21
  288.  )) )))
  289.                          Nil 
  290.         ))
  291. (setq pt24(polar 
  292.                          pt25 
  293.                         (chg-quad (  -  0.0 ANG21
  294.  )) 
  295.                         ( - L39 )
  296.         ))
  297. (setq pt17(intersect 
  298.                         (make-line  pt16 (chg-quad (+ 1.5707963(chg-quad (  -  0.0 ANG21
  299.  )) )))
  300.                         (make-line  pt61 (chg-quad (  -  0.0 ANG21
  301.  )) )
  302.                          Nil 
  303.         ))
  304. (setq pt18(intersect 
  305.                         (make-line  pt61 (chg-quad (  -  0.0 ANG21
  306.  )) )
  307.                         (make-line  pt63 (chg-quad (+ 1.5707963(chg-quad (  -  0.0 ANG21
  308.  )) )))
  309.                          Nil 
  310.         ))
  311. (setq pt20(intersect 
  312.                         (make-line  pt62 (chg-quad (  -  0.0 ANG21
  313.  )) )
  314.                         (make-line  pt50 (chg-quad (+ 1.5707963(chg-quad (  -  0.0 ANG21
  315.  )) )))
  316.                          Nil 
  317.         ))
  318. (setq pt21(intersect 
  319.                         (make-line  pt62 (chg-quad (  -  0.0 ANG21
  320.  )) )
  321.                         (make-line  pt64 (chg-quad (+ 1.5707963(chg-quad (  -  0.0 ANG21
  322.  )) )))
  323.                          Nil 
  324.         ))
  325. (setq pt23(intersect 
  326.                         (make-line  pt61 (chg-quad (  -  0.0 ANG21
  327.  )) )
  328.                         (make-line  pt24 (chg-quad (+ 1.5707963(chg-quad (  -  0.0 ANG21
  329.  )) )))
  330.                          Nil 
  331.         ))
  332. (setq pt32(intersect 
  333.                         (make-line  pt33 (chg-quad (  +  0.0 ANG9
  334.  )) )
  335.                         (make-line  pt54  0.0 )
  336.                          Nil 
  337.         ))
  338. (princ "Computed points\n")(gc)
  339. (make_layer "0" 1)
  340. (make_layer "cen" 1)
  341. (make_layer "dim" 1)
  342. (make_layer "0" 1)
  343. (command "LINE" pt2 pt3 "" )
  344. (setq ent1 (entlast))(command "LINE" pt3 pt4 "" )
  345. (setq ent2 (entlast))(command "LINE" pt4 pt5 "" )
  346. (setq ent3 (entlast))(command "LINE" pt5 pt6 "" )
  347. (setq ent4 (entlast))(command "LINE" pt6 pt7 "" )
  348. (setq ent5 (entlast))(command "LINE" pt7 pt8 "" )
  349. (setq ent6 (entlast))(command "LINE" pt8 pt9 "" )
  350. (setq ent7 (entlast))(setq ent8 (entlast))(command "LINE" pt9 pt10 "" )
  351. (setq ent9 (entlast))(command "LINE" pt10 pt11 "" )
  352. (setq ent10 (entlast))(command "LINE" pt11 pt12 "" )
  353. (setq ent11 (entlast))(command "LINE" pt12 pt13 "" )
  354. (setq ent12 (entlast))(command "LINE" pt13 pt1 "" )
  355. (setq ent13 (entlast))(command "LINE" pt1 pt14 "" )
  356. (setq ent14 (entlast))(command "LINE" pt14 pt15 "" )
  357. (setq ent15 (entlast))(command "LINE" pt15 pt16 "" )
  358. (setq ent16 (entlast))(setq ent17 (entlast))(command "LINE" pt16 pt17 "" )
  359. (setq ent18 (entlast))(command "LINE" pt17 pt18 "" )
  360. (setq ent19 (entlast))(command "LINE" pt18 pt19 "" )
  361. (setq ent20 (entlast))(command "LINE" pt19 pt20 "" )
  362. (setq ent21 (entlast))(command "LINE" pt20 pt21 "" )
  363. (setq ent22 (entlast))(command "LINE" pt21 pt22 "" )
  364. (setq ent23 (entlast))(command "LINE" pt22 pt23 "" )
  365. (setq ent24 (entlast))(command "LINE" pt23 pt24 "" )
  366. (setq ent25 (entlast))(command "LINE" pt24 pt25 "" )
  367. (setq ent26 (entlast))(command "LINE" pt25 pt26 "" )
  368. (setq ent27 (entlast))(command "LINE" pt26 pt27 "" )
  369. (setq ent28 (entlast))(command "LINE" pt27 pt28 "" )
  370. (setq ent29 (entlast))(command "LINE" pt28 pt29 "" )
  371. (setq ent30 (entlast))(command "LINE" pt29 pt30 "" )
  372. (setq ent31 (entlast))(command "LINE" pt30 pt31 "" )
  373. (setq ent32 (entlast))(command "LINE" pt31 pt32 "" )
  374. (setq ent33 (entlast))(command "LINE" pt32 pt33 "" )
  375. (setq ent34 (entlast))(command "LINE" pt33 pt34 "" )
  376. (setq ent35 (entlast))(command "LINE" pt34 pt35 "" )
  377. (setq ent36 (entlast))(command "LINE" pt35 pt36 "" )
  378. (setq ent37 (entlast))(command "LINE" pt36 pt2 "" )
  379. (setq ent38 (entlast))(command "LINE" pt37 pt34 "" )
  380. (command "LINE" pt30 pt37 "" )
  381. (command "LINE" pt5 pt11 "" )
  382. (command "LINE" pt29 pt35 "" )
  383. (command "LINE" pt38 pt36 "" )
  384. (command "LINE" pt34 pt38 "" )
  385. (command "LINE" pt39 pt30 "" )
  386. (command "LINE" pt28 pt39 "" )
  387. (command "LINE" pt40 pt12 "" )
  388. (command "LINE" pt10 pt40 "" )
  389. (command "LINE" pt41 pt6 "" )
  390. (command "LINE" pt4 pt41 "" )
  391. (command "LINE" pt27 pt2 "" )
  392. (command "LINE" pt33 pt45 "" )
  393. (command "LINE" pt31 pt45 "" )
  394. (command "LINE" pt3 pt13 "" )
  395. (command "LINE" pt7 pt46 "" )
  396. (command "LINE" pt6 pt47 "" )
  397. (command "LINE" pt10 pt47 "" )
  398. (command "LINE" pt9 pt46 "" )
  399.  
  400. (draw-cline  pt37 174.34095 0.0  ) 
  401. (draw-cline  pt55 175.11205 0.0  ) 
  402. (draw-cline  pt50 168.07686083(chg-quad (+ 1.5707963(chg-quad (  -  0.0 ANG21
  403.  )) )) ) 
  404. (setq *detailing* T) (init refpt)
  405. (setq L42 27.55608 )
  406. (command "DIM1""VERT" pt1  pt55 (setq pt65(polar 
  407.                          pt1 
  408.                          0.0 
  409.                         ( - L42 )
  410.         )) "")
  411. (setq L43 29.53119 )
  412. (command "DIM1""VERT" pt26  pt37 (setq pt66(polar 
  413.                          pt26 
  414.                          0.0 
  415.                         ( - L43 )
  416.         )) "")
  417. (setq L44 6.41380039 )
  418. (command "DIM1""HORIZ" pt3  pt4 (setq pt67(polar 
  419.                          pt3 
  420.                          1.57079633 
  421.                         L44
  422.         )) "")
  423. (setq L45 5.40968956 )
  424. (command "DIM1""HORIZ" pt13  pt40 (setq pt68(polar 
  425.                          pt13 
  426.                          1.57079633 
  427.                         ( - L45 )
  428.         )) "")
  429. (setq L46 11.43410949 )
  430. (command "DIM1""HORIZ" pt13  pt9 (setq pt69(polar 
  431.                          pt13 
  432.                          1.57079633 
  433.                         ( - L46 )
  434.         )) "")
  435. (setq L47 20.59085 )
  436. (command "DIM1""VERT" pt3  pt13 (setq pt70(polar 
  437.                          pt13 
  438.                          0.0 
  439.                         ( - L47 )
  440.         )) "")
  441. (setq L48 6.7094 )
  442. (command "DIM1""VERT" pt7  pt9 (setq pt71(polar 
  443.                          pt9 
  444.                          0.0 
  445.                         L48
  446.         )) "")
  447. (setq L49 36.1172 )
  448. (command "DIM1""VERT" pt41  pt40 (setq pt72(polar 
  449.                          pt40 
  450.                          0.0 
  451.                         L49
  452.         )) "")
  453. (setq L50 20.99459062 )
  454. (command "DIM1""ROTATED"(r2d (chg-quad (+ 1.5707963(chg-quad (  -  0.0 ANG21
  455.  )) )))  pt24  pt23 (setq pt73(polar 
  456.                          pt24 
  457.                         (chg-quad (  -  0.0 ANG21
  458.  )) 
  459.                         L50
  460.         )) "")
  461. (setq L51 18.23877627 )
  462. (command "DIM1""ROTATED"(r2d (chg-quad (+ 1.5707963(chg-quad (  -  0.0 ANG21
  463.  )) )))  pt22  pt21 (setq pt74(polar 
  464.                          pt21 
  465.                         (chg-quad (  -  0.0 ANG21
  466.  )) 
  467.                         L51
  468.         )) "")
  469. (setq L52 14.10953871 )
  470. (command "DIM1""ROTATED"(r2d (chg-quad (  -  0.0 ANG21
  471.  )) )  pt23  pt17 (setq pt75(polar 
  472.                          pt17 
  473.                         (chg-quad (+ 1.5707963(chg-quad (  -  0.0 ANG21
  474.  )) ))
  475.                         ( - L52 )
  476.         )) "")
  477. (setq L53 38.68572785 )
  478. (command "DIM1""ROTATED"(r2d (chg-quad (  -  0.0 ANG21
  479.  )) )  pt21  pt19 (setq pt76(polar 
  480.                          pt19 
  481.                         (chg-quad (+ 1.5707963(chg-quad (  -  0.0 ANG21
  482.  )) ))
  483.                         ( - L53 )
  484.         )) "")
  485. (setq L54 25.49620087 )
  486. (command "DIM1""ROTATED"(r2d (chg-quad (  -  0.0 ANG21
  487.  )) )  pt25  pt50 (setq pt77(polar 
  488.                          pt50 
  489.                         (chg-quad (+ 1.5707963(chg-quad (  -  0.0 ANG21
  490.  )) ))
  491.                         L54
  492.         )) "")
  493. (setq L55 38.6582 )
  494. (command "DIM1""VERT" pt26  pt1 (setq pt78(polar 
  495.                          pt1 
  496.                          0.0 
  497.                         ( - L55 )
  498.         )) "")
  499. (setq L56 35.1699 )
  500. (command "DIM1""VERT" pt15  pt14 (setq pt79(polar 
  501.                          pt14 
  502.                          0.0 
  503.                         L56
  504.         )) "")
  505. (setq L57 29.83428318 )
  506. (command "DIM1""HORIZ" pt1  pt14 (setq pt80(polar 
  507.                          pt14 
  508.                          1.57079633 
  509.                         ( - L57 )
  510.         )) "")
  511. (setq L58 100.0 )
  512. (setq pt81(polar 
  513.                          pt8 
  514.                          0.0 
  515.                         ( - L58 )
  516.         )) (setq L59 100.0 )
  517. (setq pt82(polar 
  518.                          pt8 
  519.                         (chg-quad (  +  0.0 ANG9
  520.  )) 
  521.                         ( - L59 )
  522.         )) (command "LINE" pt8  pt81  "" )
  523. (setq ent39 (entlast))(command "LINE" pt8  pt82  "" )
  524. (setq ent8 (entlast))(command "DIM1""ANGULAR" (list ent39  pt81 ) (list ent8  pt82 ) (midpt  pt81  pt82 ) "" "" )
  525. (setq L60 100.0 )
  526. (setq pt83(polar 
  527.                          pt15 
  528.                         (chg-quad (  -  0.0 ANG21
  529.  )) 
  530.                         L60
  531.         )) (setq L61 100.0 )
  532. (setq pt84(polar 
  533.                          pt15 
  534.                          0.0 
  535.                         ( - L61 )
  536.         )) (command "LINE" pt15  pt83  "" )
  537. (setq ent17 (entlast))(command "LINE" pt15  pt84  "" )
  538. (setq ent40 (entlast))(command "DIM1""ANGULAR" (list ent17  pt83 ) (list ent40  pt84 ) (midpt  pt83  pt84 ) "" "" )
  539.  
  540. (command "DIM1""DIMASZ" 3.0 )
  541. (command "DIM1""DIMTXT" 3.0 )
  542. (command "DIM1""UPDATE"(getset) "" )
  543. ( command "CHANGE""P" "" "LAYER" *dim-layer* )
  544.  
  545. (command "PEDIT"(list ent1 pt1 ) "Y""J"
  546.   ent1 
  547.   ent2 
  548.   ent3 
  549.   ent4 
  550.   ent5 
  551.   ent6 
  552.   ent7 
  553.   ent9 
  554.   ent10 
  555.   ent11 
  556.   ent12 
  557.   ent13 
  558.   ent14 
  559.   ent15 
  560.   ent16 
  561.   ent18 
  562.   ent19 
  563.   ent20 
  564.   ent21 
  565.   ent22 
  566.   ent23 
  567.   ent24 
  568.   ent25 
  569.   ent26 
  570.   ent27 
  571.   ent28 
  572.   ent29 
  573.   ent30 
  574.   ent31 
  575.   ent32 
  576.   ent33 
  577.   ent34 
  578.   ent35 
  579.   ent36 
  580.   ent37 
  581.   ent38  "" "X")
  582. (setq ent41 (entlast))(command "SELECT" ent41  "" )
  583. (command "HATCH""U""45.0" "2.0" "" "P" "" )
  584.  
  585.  
  586.  
  587. (rotate-it refpt refangle)
  588. (princ "\n Drawing created by a ParaDraft application")(mode 1) ( setq refpt nil 
  589.  pt1 nil 
  590.  pt2 nil 
  591.  pt3 nil 
  592.  pt4 nil 
  593.  pt5 nil 
  594.  pt6 nil 
  595.  pt7 nil 
  596.  pt8 nil 
  597.  pt9 nil 
  598.  pt10 nil 
  599.  pt11 nil 
  600.  pt12 nil 
  601.  pt13 nil 
  602.  pt14 nil 
  603.  pt15 nil 
  604.  pt16 nil 
  605.  pt17 nil 
  606.  pt18 nil 
  607.  pt19 nil 
  608.  pt20 nil 
  609.  pt21 nil 
  610.  pt22 nil 
  611.  pt23 nil 
  612.  pt24 nil 
  613.  pt25 nil 
  614.  pt26 nil 
  615.  pt27 nil 
  616.  pt28 nil 
  617.  pt29 nil 
  618.  pt30 nil 
  619.  pt31 nil 
  620.  pt32 nil 
  621.  pt33 nil 
  622.  pt34 nil 
  623.  pt35 nil 
  624.  pt36 nil 
  625.  pt37 nil 
  626.  pt38 nil 
  627.  pt39 nil 
  628.  pt40 nil 
  629.  pt41 nil 
  630.  pt42 nil 
  631.  pt43 nil 
  632.  pt44 nil 
  633.  pt45 nil 
  634.  pt46 nil 
  635.  pt47 nil 
  636.  pt48 nil 
  637.  pt50 nil 
  638.  pt52 nil 
  639.  pt53 nil 
  640.  pt54 nil 
  641.  pt55 nil 
  642.  pt56 nil 
  643.  pt57 nil 
  644.  pt58 nil 
  645.  pt59 nil 
  646.  pt60 nil 
  647.  pt61 nil 
  648.  pt62 nil 
  649.  pt63 nil 
  650.  pt64 nil 
  651.  pt65 nil 
  652.  pt66 nil 
  653.  pt67 nil 
  654.  pt68 nil 
  655.  pt69 nil 
  656.  pt70 nil 
  657.  pt71 nil 
  658.  pt72 nil 
  659.  pt73 nil 
  660.  pt74 nil 
  661.  pt75 nil 
  662.  pt76 nil 
  663.  pt77 nil 
  664.  pt78 nil 
  665.  pt79 nil 
  666.  pt80 nil 
  667.  pt81 nil 
  668.  pt82 nil 
  669.  pt83 nil 
  670.  pt84 nil 
  671.  L1 nil 
  672.  L2 nil 
  673.  L3 nil 
  674.  L4 nil 
  675.  L5 nil 
  676.  L6 nil 
  677.  L7 nil 
  678.  L8 nil 
  679.  L10 nil 
  680.  L11 nil 
  681.  L12 nil 
  682.  L13 nil 
  683.  L14 nil 
  684.  L15 nil 
  685.  L16 nil 
  686.  L17 nil 
  687.  L18 nil 
  688.  L19 nil 
  689.  L20 nil 
  690.  L22 nil 
  691.  L23 nil 
  692.  L24 nil 
  693.  L25 nil 
  694.  L26 nil 
  695.  L27 nil 
  696.  L28 nil 
  697.  L29 nil 
  698.  L30 nil 
  699.  L31 nil 
  700.  L32 nil 
  701.  L33 nil 
  702.  L34 nil 
  703.  L35 nil 
  704.  L36 nil 
  705.  L37 nil 
  706.  L38 nil 
  707.  L39 nil 
  708.  L40 nil 
  709.  L41 nil 
  710.  L42 nil 
  711.  L43 nil 
  712.  L44 nil 
  713.  L45 nil 
  714.  L46 nil 
  715.  L47 nil 
  716.  L48 nil 
  717.  L49 nil 
  718.  L50 nil 
  719.  L51 nil 
  720.  L52 nil 
  721.  L53 nil 
  722.  L54 nil 
  723.  L55 nil 
  724.  L56 nil 
  725.  L57 nil 
  726.  L58 nil 
  727.  L59 nil 
  728.  L60 nil 
  729.  L61 nil 
  730.  ) 
  731. (gc) (princ) ; Program generated at  :  --  16:56:47
  732.